
package CSS::Preprocessor::Value;

use strict;

use fields qw();
use overload '""' => \&as_string;

sub new {
    my ($class) = @_;
    return fields::new($class);
}

sub as_string {
    my $self = shift;
    my $class = ref $self;

    $class =~ s/^CSS::Preprocessor::Value:://g;

    my $inner = $self->_as_string_inner;

    return $class.($inner ? '<'.$inner.'>' : '');
}

sub _as_string_inner {
    return undef;
}

1;
